* lisp/subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil.

Fixes: debbugs:14390

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d39c434cb6f966a08e4f2fa273c718306adf9507..5b2c28d97a10a358ac8608f654035718970d6066 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-14  Juri Linkov  <juri@jurta.org>
+
+       * subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil.
+       (Bug#14390)
+
 2013-05-14  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/f90.el (f90-imenu-generic-expression):

diff --git a/lisp/subr.el b/lisp/subr.el
index 4871f3733f931a3847c0419b7feeda538bdaf24b..177e9a84a58527f74c7c5bddd58cc5076d159cad 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2738,7 +2738,7 @@ symbol at point exactly."
                   (get major-mode 'find-tag-default-function)
                   'find-tag-default))
         (tag (funcall tagf)))
-    (cond ((not tag))
+    (cond ((null tag) nil)
          ((eq tagf 'find-tag-default)
           (format "\\_<%s\\_>" (regexp-quote tag)))
          (t (regexp-quote tag)))))